home *** CD-ROM | disk | FTP | other *** search
/ Click - International Series 1 / Click Jigsaw Puzzles: Ken Duncan.iso / mac / puzzles / Stonehenge.dxr / 00241_about dialog setup.ls < prev    next >
Encoding:
Text File  |  2002-11-11  |  2.5 KB  |  61 lines
  1. global stageWide, stageTall, oldKeyDownScript
  2.  
  3. on aboutDialog
  4.   modalSprite = 260
  5.   oldKeyDownScript = the keyDownScript
  6.   set the keyDownScript to EMPTY
  7.   sprite(modalSprite).puppet = 1
  8.   sprite(modalSprite).member = "menuBar offline"
  9.   sprite(modalSprite).rect = member("menuBar offline").rect
  10.   sprite(modalSprite).ink = 37
  11.   nullScript = new(script("nullscript"), sprite(modalSprite + 1))
  12.   sprite(modalSprite).scriptInstanceList = [nullScript]
  13.   sprite(modalSprite + 1).puppet = 1
  14.   sprite(modalSprite + 1).member = "nullrect"
  15.   sprite(modalSprite + 1).scriptInstanceList = [nullScript]
  16.   sprite(modalSprite + 1).rect = rect(0, 21, stageWide, stageTall)
  17.   updateStage()
  18.   aboutLayout = ["about dialog": point(347, 184), "closeDialog": point(224, 114)]
  19.   aboutScripts = [8: "moveDialog", 0: "close Dialog"]
  20.   offsetLoc = point(stageWide / 2, stageTall / 2) - aboutLayout[1]
  21.   offsetRect = rect(offsetLoc, offsetLoc)
  22.   aSprite = 1
  23.   repeat while aSprite <= count(aboutLayout)
  24.     sprite(aSprite + modalSprite + 1).puppet = 0
  25.     sprite(aSprite + modalSprite + 1).member = "dummybitmap"
  26.     sprite(aSprite + modalSprite + 1).foreColor = 255
  27.     sprite(aSprite + modalSprite + 1).backColor = 0
  28.     sprite(aSprite + modalSprite + 1).ink = 0
  29.     sprite(aSprite + modalSprite + 1).rect = member("dummybitmap").rect
  30.     sprite(aSprite + modalSprite + 1).loc = point(-9999, -9999)
  31.     aSprite = 1 + aSprite
  32.   end repeat
  33.   aSprite = 1
  34.   repeat while aSprite <= count(aboutLayout)
  35.     sprite(aSprite + modalSprite + 1).puppet = 1
  36.     sprite(aSprite + modalSprite + 1).visible = 1
  37.     sprite(aSprite + modalSprite + 1).member = getPropAt(aboutLayout, aSprite)
  38.     sprite(aSprite + modalSprite + 1).ink = getPropAt(aboutScripts, aSprite)
  39.     sprite(aSprite + modalSprite + 1).rect = member(getPropAt(aboutLayout, aSprite)).rect
  40.     spriteLoc = getAt(aboutLayout, aSprite)
  41.     if ilk(spriteLoc, #rect) then
  42.       sprite(aSprite + modalSprite + 1).rect = spriteLoc + offsetRect
  43.     else
  44.       sprite(aSprite + modalSprite + 1).loc = spriteLoc + offsetLoc
  45.     end if
  46.     myScript = getAt(aboutScripts, aSprite)
  47.     if myScript <> 0 then
  48.       if aSprite = 1 then
  49.         x = new(script(myScript), sprite(aSprite + 261), count(aboutLayout))
  50.       else
  51.         x = new(script(myScript), sprite(aSprite + 261))
  52.       end if
  53.       set the scriptInstanceList of sprite (aSprite + 261) to [x]
  54.     else
  55.       set the scriptInstanceList of sprite (aSprite + 261) to []
  56.     end if
  57.     aSprite = 1 + aSprite
  58.   end repeat
  59.   updateStage()
  60. end
  61.